(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     58001,       1356]
NotebookOptionsPosition[     57366,       1334]
NotebookOutlinePosition[     57713,       1349]
CellTagsIndexPosition[     57670,       1346]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{
  "path", " ", "=", " ", 
   "\"\<C:\\\\Users\\\\Prohor\\\\Documents\\\\\:041a\:0430\:0444\:0435\:0434\
\:0440\:0430\\\\test 3\\\\data\\\\output\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"impgas1in", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{"StringJoin", "[", 
      RowBox[{
      "path", ",", " ", "\"\<\\\\gas 1\\\\cons_down_canal_in.txt\>\""}], 
      "]"}], ",", " ", "\"\<CSV\>\""}], "]"}]}], ";"}], "\n", 
 RowBox[{"numgas1in", " ", "=", " ", 
  RowBox[{"Length", "[", "impgas1in", "]"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"datagas1in", " ", "=", " ", 
    RowBox[{"Cases", "[", 
     RowBox[{"impgas1in", ",", " ", 
      RowBox[{
       RowBox[{"{", "data_", "}"}], " ", ":>", " ", "data"}]}], "]"}]}], 
   ";"}], "\n"}], "\n", 
 RowBox[{
  RowBox[{"impgas1out", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{"StringJoin", "[", 
      RowBox[{
      "path", ",", " ", "\"\<\\\\gas 1\\\\cons_down_canal_out.txt\>\""}], 
      "]"}], ",", " ", "\"\<CSV\>\""}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"numgas1out", " ", "=", " ", 
   RowBox[{"Length", "[", "impgas1out", "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"datagas1out", " ", "=", " ", 
    RowBox[{"Cases", "[", 
     RowBox[{"impgas1out", ",", " ", 
      RowBox[{
       RowBox[{"{", "data_", "}"}], " ", ":>", " ", "data"}]}], "]"}]}], 
   ";"}], "\n"}], "\n", 
 RowBox[{
  RowBox[{"impgas2in", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{"StringJoin", "[", 
      RowBox[{
      "path", ",", " ", "\"\<\\\\gas 2\\\\cons_down_canal_in.txt\>\""}], 
      "]"}], ",", " ", "\"\<CSV\>\""}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"numgas2in", " ", "=", " ", 
   RowBox[{"Length", "[", "impgas2in", "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"datagas2in", " ", "=", " ", 
    RowBox[{"Cases", "[", 
     RowBox[{"impgas2in", ",", " ", 
      RowBox[{
       RowBox[{"{", "data_", "}"}], " ", ":>", " ", "data"}]}], "]"}]}], 
   ";"}], "\n"}], "\n", 
 RowBox[{
  RowBox[{"impgas2out", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{"StringJoin", "[", 
      RowBox[{
      "path", ",", " ", "\"\<\\\\gas 2\\\\cons_down_canal_out.txt\>\""}], 
      "]"}], ",", " ", "\"\<CSV\>\""}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"numgas2out", " ", "=", " ", 
   RowBox[{"Length", "[", "impgas2out", "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"datagas2out", " ", "=", " ", 
   RowBox[{"Cases", "[", 
    RowBox[{"impgas2out", ",", " ", 
     RowBox[{
      RowBox[{"{", "data_", "}"}], " ", ":>", " ", "data"}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", " ", "=", " ", "0"}], ",", " ", 
    RowBox[{"i", " ", "<=", " ", "numgas1in"}], ",", " ", 
    RowBox[{"i", "++"}], ",", " ", 
    RowBox[{"{", "\n", "   ", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"datagas1out", "[", 
            RowBox[{"[", "i", "]"}], "]"}], " ", "+", " ", 
           RowBox[{"datagas2out", "[", 
            RowBox[{"[", "i", "]"}], "]"}]}], ")"}], " ", "==", " ", "0"}], 
        ",", " ", 
        RowBox[{"{", "\n", "     ", 
         RowBox[{
          RowBox[{
           RowBox[{"datagas1out", "[", 
            RowBox[{"[", "i", "]"}], "]"}], " ", "=", " ", "0.00000000001"}], 
          ";", "\n", "     ", 
          RowBox[{
           RowBox[{"datagas2out", "[", 
            RowBox[{"[", "i", "]"}], "]"}], " ", "=", " ", "0.00000000001"}], 
          ";"}], "\n", "     ", "}"}]}], "]"}], ";", "\n", "   ", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"datagas1in", "[", 
            RowBox[{"[", "i", "]"}], "]"}], " ", "+", " ", 
           RowBox[{"datagas2in", "[", 
            RowBox[{"[", "i", "]"}], "]"}]}], ")"}], " ", "==", " ", "0"}], 
        ",", " ", 
        RowBox[{"{", "\n", "     ", 
         RowBox[{
          RowBox[{
           RowBox[{"datagas1in", "[", 
            RowBox[{"[", "i", "]"}], "]"}], " ", "=", " ", "0.00000000001"}], 
          ";", "\n", "     ", 
          RowBox[{
           RowBox[{"datagas2in", "[", 
            RowBox[{"[", "i", "]"}], "]"}], " ", "=", " ", "0.00000000001"}], 
          ";"}], "\n", "     ", "}"}]}], "]"}], ";"}], "\n", "   ", "}"}]}], 
   "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"ratiogas1to12in", " ", "=", " ", 
   RowBox[{"datagas1in", "/", 
    RowBox[{"(", 
     RowBox[{"datagas1in", " ", "+", " ", "datagas2in"}], ")"}]}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"ratiogas1to12out", " ", "=", " ", 
   RowBox[{"datagas1out", "/", 
    RowBox[{"(", 
     RowBox[{"datagas1out", " ", "+", " ", "datagas2out"}], ")"}]}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"outminusin", " ", "=", " ", 
    RowBox[{"ratiogas1to12out", " ", "-", " ", "ratiogas1to12in"}]}], ";"}], 
  "\n", "\n", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"f", " ", "=", " ", 
     RowBox[{"Fit", "[", 
      RowBox[{"outminusin", ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "x", ",", 
         RowBox[{"x", "^", "3"}], ",", 
         RowBox[{"x", "^", "5"}]}], "}"}], ",", "x"}], "]"}]}], ";"}], "*)"}],
   "\n", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"f", " ", "=", " ", 
     RowBox[{"Interpolation", "[", 
      RowBox[{"outminusin", ",", " ", 
       RowBox[{"Method", "->", "\"\<Spline\>\""}]}], "]"}]}], ";"}], "*)"}], 
  "\n"}], "\n", 
 RowBox[{
  RowBox[{"strartnumber", " ", "=", " ", "4"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"massforappr", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"outminusin", "[", 
     RowBox[{"[", "strartnumber", "]"}], "]"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", " ", "=", " ", 
      RowBox[{"strartnumber", " ", "+", " ", "1"}]}], ",", " ", 
     RowBox[{"i", " ", "<=", " ", "numgas1in"}], ",", " ", 
     RowBox[{"i", "++"}], ",", " ", 
     RowBox[{"{", "\n", "   ", 
      RowBox[{
       RowBox[{"massforappr", " ", "=", " ", 
        RowBox[{"Append", "[", 
         RowBox[{"massforappr", ",", " ", 
          RowBox[{"outminusin", "[", 
           RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";"}], "\n", "   ", 
      "}"}]}], "]"}], ";"}], "\n"}], "\n", 
 RowBox[{"f", " ", "=", " ", 
  RowBox[{"NonlinearModelFit", "[", 
   RowBox[{"massforappr", ",", " ", 
    RowBox[{"-", 
     RowBox[{"Exp", "[", 
      RowBox[{"a", " ", "+", " ", 
       RowBox[{"b", " ", "x"}]}], "]"}]}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"a", ",", " ", "b"}], "}"}], ",", " ", "x"}], "]"}]}], "\n", 
 RowBox[{
  RowBox[{"massor", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{"0", ",", " ", 
      RowBox[{"outminusin", "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"mass", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"strartnumber", "-", "1"}], ")"}], "*", "0.002083", "*", 
       "100"}], ",", " ", 
      RowBox[{"f", "[", "1", "]"}]}], "}"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", " ", "=", " ", "2"}], ",", " ", 
    RowBox[{"i", " ", "<=", " ", "numgas1in"}], ",", " ", 
    RowBox[{"i", "++"}], ",", " ", 
    RowBox[{"{", "\n", "   ", 
     RowBox[{
      RowBox[{"massor", " ", "=", " ", 
       RowBox[{"Append", "[", 
        RowBox[{"massor", ",", " ", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"i", " ", "-", " ", "1"}], ")"}], "*", "0.002083", "*", 
            "100"}], ",", " ", 
           RowBox[{"outminusin", "[", 
            RowBox[{"[", "i", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}], "\n", 
     "   ", "}"}]}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"outminusintor", " ", "=", " ", "massor"}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", " ", "=", 
      RowBox[{
       RowBox[{"(", " ", 
        RowBox[{"strartnumber", "+", "1"}], ")"}], "*", "10"}]}], ",", " ", 
     RowBox[{"i", " ", "<=", " ", 
      RowBox[{"numgas1in", "*", "10"}]}], ",", " ", 
     RowBox[{"i", "++"}], ",", " ", 
     RowBox[{"{", "   ", 
      RowBox[{
       RowBox[{"mass", " ", "=", " ", 
        RowBox[{"Append", "[", 
         RowBox[{"mass", ",", " ", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"i", "/", "10"}], "-", "1"}], ")"}], "*", "0.002083", 
             "*", "100"}], ",", " ", 
            RowBox[{"f", "[", 
             RowBox[{
              RowBox[{"i", "/", "10"}], " ", "-", " ", "strartnumber", "+", 
              "1"}], "]"}]}], "}"}]}], "]"}]}], ";"}], "\n", "   ", "}"}]}], 
    "]"}], ";"}], "\[IndentingNewLine]", "\n", 
  RowBox[{"(*", "Settings", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"outminusint", " ", "=", " ", "mass"}], ";", 
  RowBox[{"markersize", "=", "8"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"thickness", "=", "0.003"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"axesthickness", "=", "0.003"}], ";"}], "\n"}], "\n", 
 RowBox[{
  RowBox[{"pdownor", " ", "=", " ", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"outminusintor", ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Blue"}], ",", "  ", 
     RowBox[{"AxesLabel", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{"t", ",", " ", "x"}], "}"}]}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Automatic", ",", "markersize"}], "}"}]}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"pdown", " ", "=", " ", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"outminusint", ",", " ", 
     RowBox[{"Joined", " ", "->", " ", "True"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Thickness", "[", "thickness", "]"}], ",", "Blue"}], 
       "}"}]}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
  "Print", "[", 
   "\"\<\:041d\:0438\:0436\:043d\:0438\:0439 \
\:043a\:0430\:043d\:0430\:043b!\>\"", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Show", "[", 
   RowBox[{"pdownor", ",", " ", "pdown", ",", " ", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"All", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.1"}], ",", "0.1"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"AxesStyle", "\[Rule]", 
     RowBox[{"Thickness", "[", "axesthickness", "]"}]}], ",", 
    RowBox[{"LabelStyle", "\[Rule]", "Larger"}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "]"}], "\n"}], "\n", 
 RowBox[{
  RowBox[{"impgas1in", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{"StringJoin", "[", 
      RowBox[{"path", ",", " ", "\"\<\\\\gas 1\\\\cons_up_canal_in.txt\>\""}],
       "]"}], ",", " ", "\"\<CSV\>\""}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"datagas1in", " ", "=", " ", 
   RowBox[{"Cases", "[", 
    RowBox[{"impgas1in", ",", " ", 
     RowBox[{
      RowBox[{"{", "data_", "}"}], " ", ":>", " ", "data"}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"numgas1in", " ", "=", " ", 
    RowBox[{"Length", "[", "impgas1in", "]"}]}], ";"}], "\n"}], "\n", 
 RowBox[{
  RowBox[{"impgas1out", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{"StringJoin", "[", 
      RowBox[{
      "path", ",", " ", "\"\<\\\\gas 1\\\\cons_up_canal_out.txt\>\""}], "]"}],
      ",", " ", "\"\<CSV\>\""}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"numgas1out", " ", "=", " ", 
    RowBox[{"Length", "[", "impgas1out", "]"}]}], ";"}], "\n"}], "\n", 
 RowBox[{
  RowBox[{"impgas2in", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{"StringJoin", "[", 
      RowBox[{"path", ",", " ", "\"\<\\\\gas 2\\\\cons_up_canal_in.txt\>\""}],
       "]"}], ",", " ", "\"\<CSV\>\""}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"numgas2in", " ", "=", " ", 
   RowBox[{"Length", "[", "impgas2in", "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"datagas2in", " ", "=", " ", 
    RowBox[{"Cases", "[", 
     RowBox[{"impgas2in", ",", " ", 
      RowBox[{
       RowBox[{"{", "data_", "}"}], " ", ":>", " ", "data"}]}], "]"}]}], 
   ";"}], "\n"}], "\n", 
 RowBox[{
  RowBox[{"impgas2out", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{"StringJoin", "[", 
      RowBox[{
      "path", ",", " ", "\"\<\\\\gas 2\\\\cons_up_canal_out.txt\>\""}], "]"}],
      ",", " ", "\"\<CSV\>\""}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"numgas2out", " ", "=", " ", 
   RowBox[{"Length", "[", "impgas2out", "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"datagas2out", " ", "=", " ", 
   RowBox[{"Cases", "[", 
    RowBox[{"impgas2out", ",", " ", 
     RowBox[{
      RowBox[{"{", "data_", "}"}], " ", ":>", " ", "data"}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", " ", "=", " ", "0"}], ",", " ", 
    RowBox[{"i", " ", "<=", " ", "numgas1in"}], ",", " ", 
    RowBox[{"i", "++"}], ",", " ", 
    RowBox[{"{", "\n", "   ", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"datagas1out", "[", 
            RowBox[{"[", "i", "]"}], "]"}], " ", "+", " ", 
           RowBox[{"datagas2out", "[", 
            RowBox[{"[", "i", "]"}], "]"}]}], ")"}], " ", "==", " ", "0"}], 
        ",", " ", 
        RowBox[{"{", "\n", "     ", 
         RowBox[{
          RowBox[{
           RowBox[{"datagas1out", "[", 
            RowBox[{"[", "i", "]"}], "]"}], " ", "=", " ", "0.00000000001"}], 
          ";", "\n", "     ", 
          RowBox[{
           RowBox[{"datagas2out", "[", 
            RowBox[{"[", "i", "]"}], "]"}], " ", "=", " ", "0.00000000001"}], 
          ";"}], "\n", "     ", "}"}]}], "]"}], ";", "\n", "   ", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"datagas1in", "[", 
            RowBox[{"[", "i", "]"}], "]"}], " ", "+", " ", 
           RowBox[{"datagas2in", "[", 
            RowBox[{"[", "i", "]"}], "]"}]}], ")"}], " ", "==", " ", "0"}], 
        ",", " ", 
        RowBox[{"{", "\n", "     ", 
         RowBox[{
          RowBox[{
           RowBox[{"datagas1in", "[", 
            RowBox[{"[", "i", "]"}], "]"}], " ", "=", " ", "0.00000000001"}], 
          ";", "\n", "     ", 
          RowBox[{
           RowBox[{"datagas2in", "[", 
            RowBox[{"[", "i", "]"}], "]"}], " ", "=", " ", "0.00000000001"}], 
          ";"}], "\n", "     ", "}"}]}], "]"}], ";"}], "\n", "   ", "}"}]}], 
   "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"ratiogas1to12in", " ", "=", " ", 
   RowBox[{"datagas1in", "/", 
    RowBox[{"(", 
     RowBox[{"datagas1in", " ", "+", " ", "datagas2in"}], ")"}]}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"ratiogas1to12out", " ", "=", " ", 
   RowBox[{"datagas1out", "/", 
    RowBox[{"(", 
     RowBox[{"datagas1out", " ", "+", " ", "datagas2out"}], ")"}]}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"outminusin", " ", "=", " ", 
    RowBox[{"ratiogas1to12out", " ", "-", " ", "ratiogas1to12in"}]}], ";"}], 
  "\n", "\n", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"f", " ", "=", " ", 
     RowBox[{"Interpolation", "[", 
      RowBox[{"outminusin", ",", " ", 
       RowBox[{"Method", "->", "\"\<Spline\>\""}]}], "]"}]}], ";"}], 
   "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"strartnumber", " ", "=", " ", "7"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"massforappr", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"outminusin", "[", 
     RowBox[{"[", "strartnumber", "]"}], "]"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", " ", "=", " ", 
      RowBox[{"strartnumber", " ", "+", " ", "1"}]}], ",", " ", 
     RowBox[{"i", " ", "<=", " ", "numgas1in"}], ",", " ", 
     RowBox[{"i", "++"}], ",", " ", 
     RowBox[{"{", "\n", "   ", 
      RowBox[{
       RowBox[{"massforappr", " ", "=", " ", 
        RowBox[{"Append", "[", 
         RowBox[{"massforappr", ",", " ", 
          RowBox[{"outminusin", "[", 
           RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";"}], "\n", "   ", 
      "}"}]}], "]"}], ";"}], "\n", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"f", " ", "=", " ", 
     RowBox[{"NonlinearModelFit", "[", 
      RowBox[{"massforappr", ",", " ", 
       RowBox[{"d", " ", "+", " ", 
        RowBox[{"c", "*", 
         RowBox[{"Exp", "[", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"x", " ", "-", " ", "b"}], ")"}], "^", "2"}]}], "/", 
           "a"}], "]"}]}]}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"a", ",", " ", "b", ",", " ", "c", ",", " ", "d"}], "}"}], 
       ",", " ", "x", ",", " ", 
       RowBox[{"MaxIterations", " ", "->", " ", "100"}]}], "]"}]}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f", "=", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"massforappr", ",", 
     RowBox[{
      RowBox[{"g", "*", 
       RowBox[{"x", "^", "5"}]}], "+", 
      RowBox[{"e", "*", 
       RowBox[{"x", "^", "4"}]}], "+", 
      RowBox[{"d", "*", 
       RowBox[{"x", "^", "3"}]}], "+", 
      RowBox[{"c", "*", 
       RowBox[{"x", "^", "2"}]}], "+", 
      RowBox[{"b", "*", "x"}], "+", "a"}], ",", 
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "g"}], "}"}], 
     ",", "x", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "300"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Normal", "[", "f", "]"}], "\n"}], "\n", 
 RowBox[{
  RowBox[{"massor", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{"0", ",", " ", 
      RowBox[{"outminusin", "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"mass", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"strartnumber", "-", "1"}], ")"}], "*", "0.002083", "*", 
       "100"}], ",", " ", 
      RowBox[{"f", "[", "1", "]"}]}], "}"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", " ", "=", " ", "2"}], ",", " ", 
    RowBox[{"i", " ", "<=", " ", "numgas1in"}], ",", " ", 
    RowBox[{"i", "++"}], ",", " ", 
    RowBox[{"{", "\n", "   ", 
     RowBox[{
      RowBox[{"massor", " ", "=", " ", 
       RowBox[{"Append", "[", 
        RowBox[{"massor", ",", " ", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"i", " ", "-", " ", "1"}], ")"}], "*", "0.002083", "*", 
            "100"}], ",", " ", 
           RowBox[{"outminusin", "[", 
            RowBox[{"[", "i", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}], "\n", 
     "   ", "}"}]}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"outminusintor", " ", "=", " ", "massor"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", " ", "=", 
     RowBox[{
      RowBox[{"(", " ", 
       RowBox[{"strartnumber", "+", "1"}], ")"}], "*", "10"}]}], ",", " ", 
    RowBox[{"i", " ", "<=", " ", 
     RowBox[{"numgas1in", "*", "10"}]}], ",", " ", 
    RowBox[{"i", "++"}], ",", " ", 
    RowBox[{"{", "   ", 
     RowBox[{
      RowBox[{"mass", " ", "=", " ", 
       RowBox[{"Append", "[", 
        RowBox[{"mass", ",", " ", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"i", "/", "10"}], "-", "1"}], ")"}], "*", "0.002083", 
            "*", "100"}], ",", " ", 
           RowBox[{"f", "[", 
            RowBox[{
             RowBox[{"i", "/", "10"}], " ", "-", " ", "strartnumber", "+", 
             "1"}], "]"}]}], "}"}]}], "]"}]}], ";"}], "\n", "   ", "}"}]}], 
   "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"outminusint", " ", "=", " ", "mass"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"pupor", " ", "=", " ", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"outminusintor", ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Blue"}], ",", " ", 
     RowBox[{"AxesLabel", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{"t", ",", " ", "x"}], "}"}]}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Automatic", ",", "markersize"}], "}"}]}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"pup", " ", "=", " ", 
    RowBox[{"ListPlot", "[", 
     RowBox[{"outminusint", ",", " ", 
      RowBox[{"Joined", " ", "->", " ", "True"}], ",", " ", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Thickness", "[", "thickness", "]"}], ",", "Blue"}], 
        "}"}]}]}], "]"}]}], ";"}], "\n", 
  RowBox[{"(*", 
   RowBox[{"pup", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"f", "[", "l", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"l", ",", "1", ",", "num"}], "}"}]}], "]"}]}], "*)"}], 
  "\n"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "Print", "[", 
   "\"\<\:0412\:0435\:0440\:0445\:043d\:0438\:0439 \:043a\:0430\:043d\:0430\
\:043b!\>\"", "]"}], ";"}], "\n", 
 RowBox[{"Show", "[", 
  RowBox[{"pupor", ",", " ", "pup", ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Thickness", "[", "axesthickness", "]"}]}], ",", 
   RowBox[{"LabelStyle", "\[Rule]", "Larger"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "]"}]}], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.5701150047312584`*^9, 3.5701151300024233`*^9}, {
   3.5701151617202377`*^9, 3.5701151788262167`*^9}, {3.570115245276017*^9, 
   3.5701152671662693`*^9}, {3.570115436810972*^9, 3.5701154381240473`*^9}, {
   3.5701155021587095`*^9, 3.57011561020389*^9}, {3.5701156480970573`*^9, 
   3.570115769214985*^9}, {3.5701159343794317`*^9, 3.570115945387061*^9}, {
   3.570116056511417*^9, 3.5701160922054586`*^9}, {3.570116972457806*^9, 
   3.5701169867436233`*^9}, {3.570119124907919*^9, 3.570119171291572*^9}, {
   3.570119207881665*^9, 3.57011922055739*^9}, 3.57011928594613*^9, 
   3.570119382506653*^9, {3.570119432557516*^9, 3.5701194445222*^9}, {
   3.570119477178068*^9, 3.5701195570516367`*^9}, {3.5714098712529283`*^9, 
   3.5714098839326534`*^9}, {3.571410043794797*^9, 3.5714100851521626`*^9}, {
   3.572699878323956*^9, 3.572699897324789*^9}, {3.5734606793807187`*^9, 
   3.573460680313772*^9}, {3.573460720010042*^9, 3.5734607976724844`*^9}, {
   3.5734617514690385`*^9, 3.573461824000187*^9}, {3.5734619281361437`*^9, 
   3.5734619651472607`*^9}, {3.5734620768736506`*^9, 
   3.5734620962817607`*^9}, {3.573462142386398*^9, 3.573462196811511*^9}, {
   3.5734921035590787`*^9, 3.573492159459276*^9}, 3.5738799061978507`*^9, {
   3.5744190033531833`*^9, 3.5744190326885767`*^9}, {3.5744190963929143`*^9, 
   3.574419118434764*^9}, {3.5744201135038304`*^9, 3.574420311888444*^9}, {
   3.574420479555454*^9, 3.5744205102180424`*^9}, {3.5744205432607903`*^9, 
   3.5744205699988713`*^9}, {3.574420641698452*^9, 3.5744207179130683`*^9}, {
   3.5744209215424943`*^9, 3.57442093529982*^9}, {3.574421506111869*^9, 
   3.5744215167423916`*^9}, {3.574421569469921*^9, 3.5744216008411894`*^9}, {
   3.574421663391447*^9, 3.5744216674721527`*^9}, {3.5744282427950726`*^9, 
   3.5744282721615458`*^9}, {3.574428309905507*^9, 3.574428383055376*^9}, {
   3.574428420725296*^9, 3.57442846623528*^9}, {3.5744285094742603`*^9, 
   3.5744285344657187`*^9}, {3.5744285752984896`*^9, 3.574428607011045*^9}, {
   3.5744287040765047`*^9, 3.5744287052084928`*^9}, {3.5744287431496444`*^9, 
   3.5744287470511465`*^9}, {3.574428782133766*^9, 3.5744287856769276`*^9}, {
   3.574428816551732*^9, 3.574428854542942*^9}, {3.574428886768959*^9, 
   3.5744288893482842`*^9}, {3.574428942797413*^9, 3.574428948134219*^9}, {
   3.5744290623260503`*^9, 3.57442911242616*^9}, {3.5744291863627377`*^9, 
   3.574429192110917*^9}, {3.5744292473926954`*^9, 3.5744292483215313`*^9}, {
   3.5744357718578978`*^9, 3.574435902869869*^9}, {3.5744359595098734`*^9, 
   3.574435978996442*^9}, {3.5744360194188037`*^9, 3.5744360217388616`*^9}, {
   3.574436196438242*^9, 3.574436211429674*^9}, {3.5744362575452023`*^9, 
   3.574436259202694*^9}, 3.5744362979806814`*^9, {3.5744364495511293`*^9, 
   3.5744364503698406`*^9}, {3.5744364873101025`*^9, 
   3.5744365265614457`*^9}, {3.57443655742627*^9, 3.5744365779637437`*^9}, {
   3.5744366714379044`*^9, 3.574436701874313*^9}, {3.5744375332079144`*^9, 
   3.5744375562146416`*^9}, {3.574438358635193*^9, 3.5744383875973015`*^9}, {
   3.5744385298613787`*^9, 3.5744385748208632`*^9}, {3.574438794237444*^9, 
   3.574438801026557*^9}, {3.57443883452372*^9, 3.5744388426890745`*^9}, {
   3.5744393449183426`*^9, 3.574439351588331*^9}, {3.574439401765539*^9, 
   3.574439401932661*^9}, {3.574439503505126*^9, 3.5744395036032133`*^9}, {
   3.574439535981369*^9, 3.574439550564502*^9}, {3.5744396359343786`*^9, 
   3.5744396410720034`*^9}, {3.574439673948606*^9, 3.5744396796937833`*^9}, {
   3.574515882176305*^9, 3.574515892703784*^9}, {3.5745160125456996`*^9, 
   3.574516062698865*^9}, 3.5745165270299826`*^9, {3.5745165610776424`*^9, 
   3.5745165671621227`*^9}, {3.574516610882521*^9, 3.5745166114970727`*^9}, {
   3.574516642269754*^9, 3.574516649205*^9}, {3.5745166920595894`*^9, 
   3.5745166923238273`*^9}, {3.5745168102980595`*^9, 3.574516875236536*^9}, {
   3.574516932556155*^9, 3.5745169352906137`*^9}, {3.5745169816113253`*^9, 
   3.5745169820667524`*^9}, 3.5745171390761204`*^9, {3.5745171940916605`*^9, 
   3.5745172500950923`*^9}, {3.574517283284981*^9, 3.574517338742915*^9}, {
   3.574517387940219*^9, 3.574517394590206*^9}, {3.5745174434552083`*^9, 
   3.574517452424284*^9}, {3.574517521433425*^9, 3.574517608730036*^9}, {
   3.574517713849696*^9, 3.574517781617716*^9}, {3.574517813086053*^9, 
   3.574517851660788*^9}, 3.5745212125802345`*^9, {3.57452128517964*^9, 
   3.574521289634618*^9}, {3.5745213319006767`*^9, 3.5745213916194553`*^9}, {
   3.574521462253058*^9, 3.574521493353086*^9}, {3.574521578663933*^9, 
   3.574521582007896*^9}, {3.574521636499963*^9, 3.574521640822857*^9}, {
   3.5745220602295227`*^9, 3.5745220750528708`*^9}, {3.574522240045446*^9, 
   3.5745222765813465`*^9}, {3.57452230898252*^9, 3.5745223166474504`*^9}, {
   3.574522378047741*^9, 3.574522419543109*^9}, {3.574522478772441*^9, 
   3.574522500391881*^9}, {3.574522533114347*^9, 3.574522625414487*^9}, {
   3.5745226669658794`*^9, 3.57452273488606*^9}, {3.574522781027589*^9, 
   3.5745229591660028`*^9}, 3.574522992120686*^9, {3.574523192838444*^9, 
   3.574523197045206*^9}, 3.5745232358171873`*^9, {3.57452329344601*^9, 
   3.5745232995675535`*^9}, {3.57452338440792*^9, 3.574523439507538*^9}, {
   3.574523506013426*^9, 3.5745235061375875`*^9}, {3.5745235809669333`*^9, 
   3.5745235810209665`*^9}, {3.574523799587796*^9, 3.574523809845043*^9}, {
   3.5745239530249496`*^9, 3.574523963801691*^9}, 3.5745239970415864`*^9, 
   3.574524028148596*^9, {3.5745240725465927`*^9, 3.574524077373925*^9}, {
   3.5745241403906684`*^9, 3.574524210386698*^9}, {3.574764953916793*^9, 
   3.5747649579394007`*^9}, {3.5747649884247503`*^9, 3.574764991195262*^9}, {
   3.574768975682785*^9, 3.5747689978086295`*^9}, {3.574769032755982*^9, 
   3.5747690400365143`*^9}, {3.5747690878664255`*^9, 3.574769151591591*^9}, {
   3.574769260957708*^9, 3.574769272442007*^9}, {3.574769360575075*^9, 
   3.574769453243208*^9}, {3.574769522447294*^9, 3.57476959066249*^9}, {
   3.574769679141865*^9, 3.574769694298461*^9}, {3.57476973466968*^9, 
   3.5747697618270416`*^9}, {3.5747698362558126`*^9, 3.5747698540007324`*^9}, 
   3.574769969367231*^9, {3.574770032280671*^9, 3.5747700584131413`*^9}, {
   3.5747705064040136`*^9, 3.574770552857688*^9}, {3.5747706513150196`*^9, 
   3.5747707019364305`*^9}, {3.574770819892251*^9, 3.5747708375941315`*^9}, 
   3.575293652962633*^9, {3.5777160300169797`*^9, 3.577716030181126*^9}, {
   3.5785501424993067`*^9, 3.5785501508718286`*^9}, {3.578550184857332*^9, 
   3.5785501883264437`*^9}, {3.5785502326952925`*^9, 
   3.5785502913439093`*^9}, {3.5791568222645655`*^9, 3.579156843818877*^9}, {
   3.580893073889763*^9, 3.5808930784289017`*^9}, {3.5808931356141825`*^9, 
   3.5808931719337177`*^9}, {3.580893789247526*^9, 3.580893847251605*^9}, {
   3.5808938966899104`*^9, 3.5808939180510707`*^9}, {3.5808939583732452`*^9, 
   3.5808939698045397`*^9}, {3.5808943014190454`*^9, 3.5808943442104335`*^9}}],

Cell[BoxData["39"], "Output",
 CellChangeTimes->{{3.57855027320868*^9, 3.578550291795314*^9}, 
   3.5791554671268196`*^9, {3.579156826773582*^9, 3.5791568442592664`*^9}, 
   3.580893019856287*^9, 3.580893079997243*^9, 3.580893177034297*^9, 
   3.5808938174197965`*^9, 3.5808938488900256`*^9, {3.5808938981912546`*^9, 
   3.5808939200899005`*^9}, 3.5808939715210423`*^9, {3.580894322327758*^9, 
   3.580894351110578*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"FittedModel", "[", 
   TagBox[
    PanelBox[
     TagBox[
      RowBox[{"-", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "4.197877822868837`"}], "-", 
         RowBox[{
          RowBox[{"\[LeftSkeleton]", "20", "\[RightSkeleton]"}], " ", 
          "x"}]}]]}],
      Short],
     FrameMargins->5],
    Editable -> False], "]"}],
  InterpretTemplate[
  FittedModel[{
    "Nonlinear", {$CellContext`a -> -4.197877822868837, $CellContext`b -> \
-0.02851233903453941}, {{$CellContext`x}, -
      E^($CellContext`a + $CellContext`b $CellContext`x)}}, {
    1}, {-0.003194085523162804, -0.012029183100688234`, \
-0.013744182273088601`, -0.013144465853467957`, -0.012479576771849521`, \
-0.011064100652259712`, -0.012131042430261085`, -0.010694066795392088`, \
-0.014992886213398449`, -0.011965618471726835`, -0.01625155180313642, \
-0.019281921021049475`, -0.013174402018607811`, -0.010989413079604216`, \
-0.015306908965492805`, -0.014353377865011008`, -0.01125724128390354, \
-0.01025287466627478, -0.013453817159474912`, -0.013274118403380775`, \
-0.00653018138465411, -0.007568660588070042, -0.0048152106317603804`, \
-0.00417085285889407, -0.005909105367654877, -0.006184962565738195, \
-0.005897429344318916, -0.009264080616571413, -0.006762636704551905, \
-0.0006607805077551987, -0.0060308085673502765`, -0.00323669189901743, \
-0.0030640207198311398`, -0.00045833567858577506`, -0.0037712934357932992`, \
-0.002577798755187155}, 
    Function[Null, 
     Internal`LocalizedBlock[{$CellContext`a, $CellContext`b, \
$CellContext`x}, #], {HoldAll}]]& ],
  Editable->False,
  SelectWithContents->True,
  Selectable->True]], "Output",
 CellChangeTimes->{{3.57855027320868*^9, 3.578550291795314*^9}, 
   3.5791554671268196`*^9, {3.579156826773582*^9, 3.5791568442592664`*^9}, 
   3.580893019856287*^9, 3.580893079997243*^9, 3.580893177034297*^9, 
   3.5808938174197965`*^9, 3.5808938488900256`*^9, {3.5808938981912546`*^9, 
   3.5808939200899005`*^9}, 3.5808939715210423`*^9, {3.580894322327758*^9, 
   3.580894351234687*^9}}],

Cell[BoxData["\<\"\:041d\:0438\:0436\:043d\:0438\:0439 \:043a\:0430\:043d\
\:0430\:043b!\"\>"], "Print",
 CellChangeTimes->{{3.58089432290327*^9, 3.5808943513497915`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGDwB2IQTQhcvveAe/LKW/YMTc2tzL+b7OWXv/DQ+//YnqF5
1uxqraz9EPlX9g2X5RYcXNSx36U75/nvlR/sGVz/vHqh2rMfov6zvUP4tvCa
1137fx5KWZUQ8t2+4eelgid9nVD9v+wdIjcUH1vRtn/dr5jco//+2h94y/FF
4wbMPAaHhp+6kUefte43nKklMTWEyeFA3hr56Vv6oOYzOzj0SyrkNXbs59m6
rPL4SlaHhPPMevZLJkDtY3coYDp0YfG+yfufXVC6/fMfh8OCxc1+er+7oPZz
OTCstuab19i2/+CbeTY6ITwOBz66dVtF9kPdw+twoFP5iG9q7/5ZHNLz4lby
OzxY7hTJydcOdZ+Aw4HpvN2l/1v2W086Xe9RL+jA0Lrs6Jrebqh7hRwOfEhn
LtPv3q+xoHPDQ01hB4Z5+8xT9ldB3Q/kx5ncDmCo3y+6zv1h1RURh4Zff5xk
dxZD/SPq0NDDeKpEtHA/0x5WIZF6MYeG69dTVE0qoP4Td2AwV7NPD63c/+Hk
Yae1mhIODXwLlZ6rV0D9K+GwYIbJLe6fTfvvXm8sdrsi6cDgtrFceXM11P9S
DgwLroeyL3fdf+qp/ZL7ddIODaLcNw9troCGh4wDwwf/3Vebs/bv+Pz3SoWm
rANDntrM7ZKZ0PAB8mewH5jBabd/KSPQgVfkHBjkeff/fJIHDS95B4ZFOtqc
cqn77zqc8S+6s8n+wKGDGQVLOu2ZXmn27GO4CedD3HPKPkD1ntFZ+UX2o+lv
NP1RM/0BAPUiYYI=
     "], {
      {RGBColor[0, 0, 1], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 2], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 42], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 43], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 44], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 45], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 46], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 47], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 48], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 49], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 50], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 51], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 52], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 53], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 54], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 55], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 56], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 57], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 58], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 59], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 60], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 61], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 62], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 63], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 64], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 65], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 66], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 67], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 68], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 69], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 70], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 71], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 72], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 73], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 74], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 75], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 76], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 77], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 78], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 79]}, {}}], {}}, {{}, 
    {RGBColor[0, 0, 1], Thickness[0.003], LineBox[CompressedData["
1:eJwtlnk41HvYhxn7knUYxtbOSPtu+z2lhbQ3oU2lchJKxzIYsxvDGFFNC2lF
paPQJm1Pp6JS2kyLUmk5akrZSbbX+77fv+aaa8x1zZjnc9/3sJAdy7fQNDQ0
AjQ1NP730enUN99xA5+ppTl5Hp7qDKx5X2+0t/A7lb8yYni/eQZOKu2+Mo39
gzp5/syr6l4F7pZYhL7p/0F5BCn6i74qsGnlGEt+YSNVl/kk/dBzBS51mXNr
GPsntf2Ve0z2DQWe+7M2sqL/J7XmbW7RydMKNKqOZYYV/qIioh6x7uxVYMTR
XfeM2U1UW8bp+l98BVbtPBVT0t9E/ZxvU8napkCr4fVmZ9jNVOt9wyfRKxU4
Jz3ia09hMxWykNP8CBQY3f77xqKBZirbZp3TVDcF5q2TKo+yW6jG+DtLixgK
fF5pHt5S2ELVl5UnTNJSIG3CkVk+Ay1UlG1g5r1f6Tgx29VmH7uVMn1xNSX8
TTpupJX9aihspTpNjVc6VqZjVrhPxYyBVir8VULTh9J0RNWTQ3J2G/WG6eFf
cjgdm73W/l1X2EaxTu5al5mWjv///2yjzOyv2fFi03GRWayTkN1OuTebcBM2
piM/QbPzWWE7VbixPip5UTqe/ZTxaMRAO8WMzWg9PDMd6/yZebHsDmpiE7ej
YlQ6Gl86mXCvsINqXGy7o9c8HT0cJy+1HeigTO6/Yc/ql2O4DEeHszupjV5e
ucrvcsxp9u+7XthJsTwq3DtfyrFq1esak4FO6nRL/6jQO3Lsvr35zAZ2F7Vh
PH/Fl2I5uri1CM8XdlH5a95ficqVY9A+XqD2QBfVG3Xb3yhNjrJ+g3EB7N/U
7S6V5sVYOZb9tV/7dOFvaofG/afbQuTY8HT42+7+35SH48pz45fI0dq9uNSf
3U2VbvTKonnKcU6eR+rhwm7KYoVfxGcXOcYa3w9u6u+m+hp9Zzy3kmNBLHvq
LPYfyuSA5ffHNDm5vz/UiqGpnNqmNKT5Rn760v+H6ixXvGypSyP32EO1tpj0
MarSMISZkpla2EPJz2p99C9LI/fZQ+mP/Cs+Iz8N/2084unG7qU4tZ7ldbvT
yL32Uq7ZmdkzBWk4FMvUT/p7qeSonab5EWnkfvuoG4U9Zvar05C/++n+6MI+
KrFysfL4/DRyz31UTuKezClT0/DdJrUPg91P6Z/q+K0ankbuu58KYZ+rFJul
odc0WsvV/n7q8dnuX179qeTeB6g3PXZbdRtTMUff7khw4QDldnSDS11tKrn/
ASrEiDka76Vi0s/sUZquGkC7fTyw+FIq2YMGjFsUdKEoLxXPBozuXS7QgGz3
gvFlu1PJPjSAY911+7EgFevw/PN8lQbMCb2zqS0ylexFA/7NS9EftTYVjVhU
YSdLE9qm3z21aUEq2Y8mNMXqziiekYoeex4KfAWa0LDvfbGecyrZkyZMKPmi
E2mVitt6AgNyVJrgdKVswgetVLIvTbDj9I0ObpVhzuYvbo0sGpTKQj6o62Vk
bzRIWpqzVPxEhg+qo7S8BTSYOxC80/mmjOyPBnrJO2fUFsmwe1pfbaaKBg6K
7NwDh2RkjzSYxCtQhshl6HIsreQjSwu2RW1juCfIyD61IHvsXTvHrTIMNLCW
TRZowczR+w6aBMrIXrXgZFRlstE8Gcr+PrFOqtIC9p35r+hTZWS/WvBmh6nM
daQML78dN+UVSxsmBzPTF1rKyJ61QUM/4k0iTYYNc64ZsgTacCTaJOJSSwrZ
tzbsGG8xvbc+Ba3Ozf+YqNKGMYt2TVryNIXsXRt61x5beQ5TcA5DVfaIpQMv
tkYcsC1OIfvXgaom+6asIykYI9ywy1GgA+4fP62g70ohPNABt4Md1/N4KZin
btwcpdKByy/3DKMiUwgfdGDsv/3xDWtTsGZ5gsdtli5k1UquZi9MIbzQhfY/
f78L8kxB2nUdC7pAFyrYI2pHuKUQfuiCR2hr/h+7FJw0as+3LSpduNbtM+Od
UQrhiS4sHiqWP+yR4sZdjljG0oNON4e9FT+khC96wCpJ93v4VopZXWf2GQj0
IDB6QUHdQynhjR7Mjqk73H1Nirc2TI9Yo9IDaX2V6/AiKeGPHowwL/AJyJVi
84M7s8+y9EEt1ajfp5ASHukD7WN8V32SFP/v6/L1IeNTsWh6pJTwSR/0Ny+K
y14nxSW5dU1LVfrwa8XAI93FUsIrfVhVmsATeEuRrxNWeYJlABxZnEBrvJTw
ywDGqy9V7XGS4rntHbntfAN41NgXMNZMSnhmAPxTTPsaDSm+eyWKnqcyACPW
e/PklmTCNwPgcYZOgE/JaDTLZMFBliFckON2vZpkwjtDsPI9WlF7Jxk9zuQM
/c43hJX8Qreyi8mEf4bQX1996GhBMoZbOnd5qAzBXZtmtHd/MuGhIRwMmvX3
blky5iZdqM5gGcHp0RkPcuKTCR+N4J68Ub84LBmr/qPyP/CNoCUqwuXx6mTC
SyPYmOU09Ld/MnYvfpQ4UWUEUX85fnPzSib8NILQ6bL4iHHJyLoStEzCMgZX
Df6Dy07JhKfG4JLkVmNknoyrhv3n/II/+Nz+dkY4LZnw1RjMtWJaXrRJUCbf
2T9aZQz3NXmdC/6TEN4aw8i9DvuqXkrwSlufKp41BE6+OlTBvi8h/B0C8bt9
hOpyCTaslf9TxR8Cs4eG3kj9R0J4PASceatjJx2WoFWltdheNQQOTuMda9gl
IXweAr4RE6YXCCU4b3xe0HaWCUx++Hbi9r8lhNcmEJ3WmDprswRjD44ff4tv
AnNCXkxxCpAQfpuAyR6TcXq+EizQHByIavD151aR3TMlhOeD71+5/XvHGAmq
tvnWbWKZwoo7x470OkgI302hdIqHeIiZBGkq1flLfFOQjn+W4UKTEN6bgkFe
T/midjFO8dqYpqcyheLPQQNJDWLCf1OYdUoRcPm1GCfWdBYX0c2gXwOudFeJ
iQ/MIGfdMIf5N8R4X8/r0ErKDEIEX3hHisXED2awLXF2zcBxMW70lKT0h5lB
Zkm3VbhSTHxhBgXV1d71KWL8HfVg5ymlGZTckc1bnyAm/jCDb5Udo76FizGr
wHTdUjSDP34/XiQGi4lPzMDzDyxhLBOjy5uVvt1qM7h/TSW/4SMmfjGD6wVp
oshpYkST3Mkn6OYQ3j/fzZklJr4xh/zpfZLvdmIM9Pnk6E+Zw6vvh0RlJmLi
H3NY+8LOcZemGJs4LobtYeZwV5WwfHu7iPjIHDQ+lzGCvopQVjQ4UKU5XLZ4
F+r/RkT8ZA4H0ztm+FaL0Onjxfq5aA57Uyxki2+JiK/MwW3BggXBF0R42arn
4S+1OdSPvsLlnBQRf5lDUHQSPSdbhIsWzCo7QLeAF6nXh1QqRMRnFpCBJzb0
CET4H192AigL6NgWrOseLSJ+s4BRL0f8FoWKkDc4T3WYBSwGt/E1q0TEdxbQ
9/pS/thFIrT6ZpmwR2kBe65rLd8NIuI/C7jYvG5C/2QRnrVfvdkDLaBgg/nM
GGcR8aEFXK/dsaWNKcI5y44t+aK2gE96T89xTUTEjxbQuDPDZAhNhG+lDe4Z
dEtwitPnn+oQEl9awsV5JzsXqIUYc9Vt9DTKEjwbnu7sqhMSf1qC88iub0VP
hWjU9Lf5hzBLYGcrVobfFRKfWgIn36B00hUh5o8o75UpLaEk9Ec7rUhI/GoJ
9rcuMOuOCtEjaODrBLSE+QvVdjf3ColvLeFuMKP1tEyIzxVza2rVlvBkoHp/
LldI/GsJN74d18reIcTwf9Nviul0KBC6TTqySUh8TIeB10b2RYFCpA3adgxF
h5FnPl297S8kfh58fUmQ/idKiP/7c6jC6HC00qbfYIqQ+JoO30+q9rm7CHHS
+mAhT0kHlxGzHkTbC4m/6XBRy2bPJTMhPtibHz4a6VCax/g+oC0kPqfDzLc6
+wtaBRhy/3vAEzUdTEtmr1v7VkD8Pvh57/IcRt4VYHfvhNnxdCvIGB5U1Vsk
IL63grOvuIEN+wSYNZEzdhhlBXebDl2p5wuI/63gTGTMxx9/CdAl9IZNVZgV
fJ5TVaG3TEB6wArGrghfNcVdgLdytLSjlVbwetW4rJ0jBKQPrGB9V+s6NBZg
0BO/Jju0Av3jxy87dPJJL1iBX+6YXYoPfGzWynpzV20Fkb/lr40e8Ek/WIFv
6u20Q+f5KJvxsiKSbg35b9/t88jlk56whq4ZLc0/pHx0jLQvtaasYfQB28yi
HXzSF9bQsz9pM28VHy8fD8nFMGv4neS7JdiHT3pj8LnrRemSsXxc/PK0bKvS
GgyZA+VLGXzSH9bQt2Jn50ZNPjYYDh4gWoN75Jrxkh880iPWcIJvveriCx7y
qanBV9XW4OykvbUDeaRPrKF83a6l887w0CqG67eJzgDXa856p5Q80isMeDfC
X8gQ8PDs6X+nGFMMKFNzSw6E8Ui/MMDm5lyFM5uHc9/pDb0UxgDlP57697x5
pGcY0GHaZxPH4mGd+WKjYCUD3PePuTCFziN9w4DNE2If0gaSMGaeslMXGSAx
zwyoVyeR3mHA3VPT/KpVSWjMffOxWM0A3/0TDz7AJNI/DPAuXjTjxZkkzCse
Wh1EtwHNXxscm/clkR6ygb4oP4opSkLPL6FXNCkbeBb9M3NFRBLpIxsQ+nno
5AYmYY3N2bwzYTawNoClbJudRHrJBrwML09cPS4Jty1q27VCaQOX33x9/sQ2
ifSTDVh7VUewdZKQJp6Z2HvTBgqOJbV/beaSnrKB71vp6+V1XMy5LNhSoLaB
S1+vHve4zyV9ZQPbAo+U9lzg4uQfFUsX020h8EW7pOool/SWLVSu6R1yOp2L
D5yMPbu8bWH19T9zlBwu6S9b2Jrj5Zi5iYsb2cudj4XZwrAtzMyDS7ikx2yh
ddkvRYkHF7tTD1r4KW2hPcBxyCtnLukzW6CPYugY07mYdeN9X8tNW9g/fNG2
JRpc0mu2sH6L56TjjYnIah2pzlHbguDs1uWatYmk32whcv26WzsqEvHW6HCV
D50JafyzOxtLE0nPMSH/VNsazpFEDFpTio3eTFhi9DzGLD2R9B0T/traWlrG
ScTmzMGDCWPCKV1dg8jNiaT3mKBVWrFjwrJETLnrtd9byQSfkpa3mt6JpP+Y
cLRimc9H10Qc2i0Rfb3JBOdRlw49ZiSSHmTC1qjWNw+0E7FsbFVElpoJNqVf
O5+3JJA+ZELyisT/1O8TcEmIWdBMuh3MH3Yg1+RRAulFO+j1mGQxqzwBv+4P
8PnkbQfXGPM9RScTSD/aQV3sa7MnexOQ9zB3XHqYHVxc3yx1FSWQnrQDp2HH
du/dnoAMjc+2U5R24O+j4Wq4NoH0pR1IZBPm7vJLwLNTWDrvbtrBvY+BtU7T
E0hv2kFedH7dzZEJODdsR7NUbQeNKf5zwy0SSH/awZHUNINRGgn4/vClt+Po
9iDWOuHU+DOe9Kg9WB/6wLv1Nh5jnvdUvvK2hwhdJfPEg3jSp/bwxdCmMass
Ho31Zp8XhtmDJefhN0VBPOlVe7jmYKW3f2885g+eC0tpD9KnIV5FonjSr/bQ
vZolfrIjHj2jHqc+v2kPQt6XhwPr4knP2oPzN2tzr4XxqMqnx3DV9nB66gJf
mXs86Vt72N5gsvW9SzyG165eP5LuAJFrekNnM+JJ7zrA+GclHhd04lHL5PiC
am8H+LL6Wd2Edg7pXwfwe2cw69onDmbP/jo1LswBrhkMWb/8GYf0sAMErFKO
7UQOTh7Uh5PSAT7qbcg7eY5D+tgB2kyml206zMGH/0Qb37/pALbDvq4fq+CQ
XnaAx/lzlFpcDobUl3dFqR2gsNjVvyGMQ/rZAXZpcrkvgjj4hz74A9Md4fyA
g/2z+RzS045QU0wbWTuNg1l+8x7f9naE2AuO8p+jOKSvHeHX7O1zTaw46MpX
lIeHOcIZl/aFHtoc0tuOEH29/EBMWxzeHsxJutIRUt4/tr/6KY70tyN8bvWr
MXoeh0FfbbJu3HSEI3Xzz4f9G0d63BE0u3+U1JTEYbPdem6oevDvmRsq/Y7F
kT53BJ0UlfphZhzKlhaEmtKdgPousFgtiCO97gT1wUent2+PQyfpj2VXvJ3A
OjhuaU5wHOl3Jxh1azF74eI4vFI+0WtjmBPUXI53N/SOIz3vBC/uL/hTMzYO
l/waDFSlEzCqh6UXOsSRvneCMQ0bvsiHxOH/AHzjYak=
      "]]}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["x", TraditionalForm]},
  AxesOrigin->{0, 0.},
  AxesStyle->Thickness[0.003],
  ImageSize->Large,
  LabelStyle->Larger,
  Method->{},
  PlotRange->{All, {-0.1, 0.1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0.158308, 0.158308}, {0.0006360518992136799, 
   0.0006360518992136799}}]], "Output",
 CellChangeTimes->{{3.57855027320868*^9, 3.578550291795314*^9}, 
   3.5791554671268196`*^9, {3.579156826773582*^9, 3.5791568442592664`*^9}, 
   3.580893019856287*^9, 3.580893079997243*^9, 3.580893177034297*^9, 
   3.5808938174197965`*^9, 3.5808938488900256`*^9, {3.5808938981912546`*^9, 
   3.5808939200899005`*^9}, 3.5808939715210423`*^9, {3.580894322327758*^9, 
   3.5808943513948336`*^9}}],

Cell[BoxData[
 RowBox[{"0.039928734356305826`", "\[VeryThinSpace]", "+", 
  RowBox[{"0.04109244822383067`", " ", "x"}], "-", 
  RowBox[{"0.007246450198661933`", " ", 
   SuperscriptBox["x", "2"]}], "+", 
  RowBox[{"0.0004678474973560695`", " ", 
   SuperscriptBox["x", "3"]}], "-", 
  RowBox[{"0.000012820093585714977`", " ", 
   SuperscriptBox["x", "4"]}], "+", 
  RowBox[{"1.2739840450379637`*^-7", " ", 
   SuperscriptBox["x", "5"]}]}]], "Output",
 CellChangeTimes->{{3.57855027320868*^9, 3.578550291795314*^9}, 
   3.5791554671268196`*^9, {3.579156826773582*^9, 3.5791568442592664`*^9}, 
   3.580893019856287*^9, 3.580893079997243*^9, 3.580893177034297*^9, 
   3.5808938174197965`*^9, 3.5808938488900256`*^9, {3.5808938981912546`*^9, 
   3.5808939200899005`*^9}, 3.5808939715210423`*^9, {3.580894322327758*^9, 
   3.580894351532956*^9}}],

Cell[BoxData["\<\"\:0412\:0435\:0440\:0445\:043d\:0438\:0439 \:043a\:0430\
\:043d\:0430\:043b!\"\>"], "Print",
 CellChangeTimes->{{3.58089432290327*^9, 3.5808943516480575`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGDwB2IQDQO/Vr/lXJZz1B7G/w8G9+0v33vAPXnlKfsZrX6T
vNO275df/sJD7/9je4fXD7ZUq/fth8i/sl/AnvTUW32ivUt3zvPfKz/YT3hs
85ZZf6U9RP1ne49J/9/XF2y2/3koZVVCyHf7GT6VnQopO6Dm/7IXkPBXONO3
237dr5jco//+2gewyPd9ld0LNY/B4cenbI2p6/faG87UkpgawuQgIaTLf+bc
Hqj5zA4aSjMXS7nttufZuqzy+EpWh4Czl8//sN8JtY/dQcAtvi/ac5v9swtK
t3/+43DYcYvh4d3rm6H2czk8eNozq//JRvuDb+bZ6ITwOAhsW6myx3s91D28
DgVl2oFSd9bYz+KQnhe3kt9hweueX8vWrYa6T8ChQEx7+YQvq+ytJ52u96gX
dDhwOpArTGA11L1CDgU9c99f51htr7Ggc8NDTWGHDz4XKnT01kLdL+yQoCT5
wXz/OnvRde4Pq66IOLzIkjq5PmkD1D+iDgcmHmksLN9oz7SHVUikXsyhYHXh
v8Wpm6D+E3fgaOvQu5Cy2f7DycNOazUlHDpe2AZaeW6B+lfCoSFAT2jV9y32
d683FrtdkXS4wCSQ/8R8G9T/Ug4JMTYBKzS32596ar/kfp20w4f0pbeEp26H
hoeMg8HeSV9k2XbY7/j890qFpqyDwJ/ZblyxO6DhI+sgEXH4yu39O+yXMgId
eEXOwcBr92VO1p3Q8JJ3mHGm8Y+1/E77W22/RFY6HbffIPjYYG7whP3nJm5p
Pvp3rz0s/flEyhXrHHwMl4e475Y9w5V1t4x3rxhNf6Ppj6L0BwDJtWSK
     "], {
      {RGBColor[0, 0, 1], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 2], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 3], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 43], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 44], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 45], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 46], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 47], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 48], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 49], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 50], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 51], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 52], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 53], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 54], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 55], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 56], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 57], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 58], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 59], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 60], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 61], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 62], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 63], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 64], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 65], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 66], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 67], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 68], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 69], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 70], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 71], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 72], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 73], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 74], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 75], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 76], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 77], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 78], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8], 79]}, {}}], {}}, {{}, 
    {RGBColor[0, 0, 1], Thickness[0.003], LineBox[CompressedData["
1:eJw1l3lcjfn7xk+btGo57VSGoWNpE4p034mEoWUOIksS5ihEZZSWE5KxhqNJ
okaRzmk5bWepTh1jiiJLnWkITSKVLWFK++8zv/l8/+p1va77uT9PPc9zXe8m
B+31267MYDCclRiMf39a5XR52Y59gXXvm5+WM0pg4PdgfiC7H/B7l9lrqyVg
M6uXW5zbD55LrIxqZkvB/2LsOtWxfmiX3bgwJUUKSaMatmvZ3yCx4R6kfJOC
eGeK6s3cb2AraF7gvqYc3jz67tnA6Dcouqbi4JVXDsYLCotWsgfg+5kzNzwY
KYclWQuPX8kdAIdRTnTf8gqI1L67uWd0APbZ1bW3J1fA9Uj2XHf2INR5vNlX
1lgBTa1tWhdyB+G212Xe2QmVoOy1u/316CB8enfD8/yySnAsGpDMYw+B03m2
YWt0JQSZHzt7PHcI5uydanwhtxLOHTHY0TI6BJnp4UOPmirh1vurrrPYw3DF
YaqSeKASetbMNIzLHQajDUv7t1nIwLpa3P1wdBiYeyqwz1kGPjZL5JPZI2Cj
0dV00k8GcecepYTnjkDJZL+Fi3+SQcHgxt01oyOwxnp1yrxoGbzY1u1hwh6F
ef3XLyUel4FWQ6Q5J3cUQl3ck1dekMGiecq95aOj8INjQ0B2mgxCM87c0WaP
wYvh4EjBVRmkjbe4ujl3DDQvu3w8lCGD+n05EcLRMbDRWRBmf0UGMR8ufa80
g4FOnAq3V7/KwOi7Nj0+m4Fun63nF5yVQf7aacN+8QwstTv6mH9UBktOhnYO
5TJQobpp8ucDMnheXdyYrWDgpzus5vQdMgj/+k22aoyBzetNXG//SO6XBbl9
LCVkLcp1jXWTQdamRF4GWwkr8rduaZ8mg4Xn78V7xSthu5hTr6Ejg8Za/ZDe
XCV84e3iodlbCbuG1q1NUyjhXA7YDTaS52V/1d1jTAkHdU7weoorIS349az3
LGV0O7DHnHGuEhwuzTC9yFbGUCsHTffdlVDXEKbiFq+MR17le98hz3ersvjj
m1xlzNFjROdYV8LAvJGnZxXKiNwZlf/0V0ByiEeN85gyHi+o/lDTUAE2mb8I
X7JU8N7jX07OvFYB1YqHl0+wVfBOr6PEJbIC1mkYJ82JV0G1sfeuKssq4NOi
jfuf56qgx1uzE2kmFZC0/9qmRIUKSiq+iPU7y+G/70UFD/CdkqLLykH0zNbp
L5YqPplTvfXN4XJYpRdpxWWr4h+OngE7vMn7v6RCkxWvinr9Xx20LMohLkqp
73GuKnZtNPHu6JCCUcGyl9EK4r++dUdVKIX89tP3p4ypos+dqE1RUVJYYqIQ
32ep4RPDF3F+i6XwfKV5ViRbDaPlK7wyNKUQwQ08Yxmvhs41J47uaZSAdtmN
qDu5ahjoeCD/wSUJZHW/Dw5TqOF3XhnvGwIlsNByjo/ZmBo+OD1gET1dAk1+
UQt/Z41Dy+6E2rYPYghJqp4Wwh6HpWVvbCaUikG5Us2AGT8O9z+3czSIFkPa
p5UjlbnjsPztjqN9IAbH7893bVeMwxYWRN5VE0P9+idNumPjMFgk0+XdE8HW
M5bVYpY6pv76csL2cyKaL+p4qnnlB891Ikju51/UiFfHroudj5dMEtG8UcdH
NuczOK/KQB44PzRAoY55M273VOeW0fz5d96J6RdWBp/qbi/OZ41Hp+cnTGbM
L6N5NB4ZI8My39FS+P9fN248LrkynNhYU0rzifhWrTfLTpeCd/rzHh/FeJwo
4Vqori2leTUe7U/0nam1LIU4NU7tNZYGVkpn7VPrKqH5pYGhiRc+3C0qgYI9
/6R/jdPA7E21H0xjSmieaSB3aI75iGcJvPgrIdxToYGlB2tbYgxKaL5p4Kkd
J9dltBaDlrvuilSWJjp1BESFCIpp3mliRMXRt50Hi2EhP836bZwmpu/eY2Kx
rJjmnyY6r1lqp2VcDCGG0/sXKjTRS/Lb1KqOIpqHmhjcZlfgIiqC9JiShtMs
LUx19F92JKmI5qMWomenfeb6IqjvgOy/47Tw5nDZvouzimheaqF/qu9fOxlF
MLD6frSDQgsPKrL6LP4U0vzUwrahtFkivhBYEn/fIyxttFdqvLogQUjzVBud
Lzq75vsLYf3kjul/xmljl1uFTN9BSPNVG2/uf3cjRFMISSf2jU5TaKP1j96n
Y+oKad5qY1jvsb1m3EKQfBlRHGTpoL3vltslzoU0f3XQ59KSzz5fCuDNxhOC
+jgdzCyNVeorLKB5rIOMhJgLOXsKwKjW+PBEhQ7i6Oxujl0BzWcd1ItZ8Qo/
54OnXZb/HpYufqq7rmIvzqd5rYvC4Pg9C+LyITLVzk4ep4t6NxrfBS3Lp/lN
9OcbXQKDfLiuRD4QhS4Gdm05aNKWR/Oc7DurszanMA8Uu7yeb2NNwOSkyo6N
CXk03yegvVPtXJc1eaCsUBSXxU3AwB5rxqKZeTTviZ4nFPykkgdOi7b+oq6Y
gPInvFWVLwQ0/yfgo2mx/PnlAnBo6ivMY+phmPU/81tSBbQP9NAnWzQpK0oA
d9UXXV4Desi9MjDv3EYB7Qc9TJ7zh2GWuwC2uh45NsrRQ/y2YLDZRkD7Qg/1
jHs7ZxgI4FtY3b4cHpnnOl9IH+HT/tDDQOv9oax3fEi+PmGTT7UeMtQ2Zzxo
4dM+IfvOhTB/uc8Hm5Y1XgPdRPM19q+R82m/kPmuvkn2Ij5U66bPucbUR8at
c25GBXzaN/qIFTaVjJt8WOfRbrkS9DHw8orFH7P4tH+If87Y/elvfOj52Ubz
K0cfM3ee+lhJ9H99pI/ckufLeGQ+KY98oDziK0sNNuTwaT/po3x8duv4fD5Y
vSxtW1pNzn/sPu5yKZ/2FfG7c4SaVXwQGQ3d+9hNzruY3+hbx6f9RfS3hfa7
mvmwaoW7+FemATKWXd20qoNP+4zovsfyr//woSMu6RqCAXk/ms+vHy+g/WaA
eGWsLWKiAGLJ59nNMcDMLe5nwFFA+84A28KPsouXk+fVZRh1nkf2Lf9aUxMk
oP1ngPJs79X7Y8nzmrgheGE1mW90dhJeEtA+JP6fiWk/iwWwxDfT+3U32X8u
OUHeLKD9aIDcsWN3D/cL4FnimwWnmYYYuLbCVmSWR/vSENvwK9tvUR5ElM+a
Ng8MEcfJqlYH5dH+NERuRVnTteN5oNWzX/9vDtH7XrUtFebRPjVE+TaGud3T
PMieIh1O4hmiNet+2hqVfNqv5LzWgJ+Etvmw0H+s076azK/btX9eQD7tW3Ke
901e6/F8aDy1tOlptyEyLmqnZpDv87/+Jb7LVKewznwIuXWy6jCTiSgP0ltm
WkD7mIncVftrzFcUgDJp25nARIbiSOvLmALaz0QvzWg5LyyAfx+HgkPmq77M
ntpRQPua7JNO9zhlXgiOWzZzY3lMzHTOjbnlU0j7m4ny/pG55UmFUHchO2Ra
NdFphjWh1YW0z8n1LWcPPewvhKC7b9c+7CbXb9Bjh5oKab8TvfrNSpgrhIFh
+8UHmUaY+eNv9wL8hLTvjZCx0Wiwcq8Qkh1+nj0ZjDCwZcHYptNC2v9k/kmz
6gKBEGx2yEzrOUTrTpn/Q52Q8gC5fiiy5mynEORpKqrhPCPEgbftY2pFlA/I
vvWad36dWgT+D5f3WFST+YP7Cvw8iigvGCFXEf1sZlARfFJJbvmj2wjlNm9S
LBOKKD+QfQlc+2mZRZDk3Fyzm2mMgez7Y4uqiyhPGCMjNTd4a2sRWO6eWGQM
xmj9bOTOyZEiyhfGyA3YmC6ZWAyi34LSqznGKLcs2PxqYTHlDeKrt6SoBxTD
6uabST/xyL6e0CfW0cWUP4wxs9z99oxLxfBGk7yA1cSPYKlOlhRTHiH+1gtr
xpqLIQ7mbi7vJudbzOXe+qeY8gk5L6s4YBuzBIwiDi3fxjQh/Oj5sM2xhPKK
CbY1cBrn+pZA/s1bTtpggvINMbs37/3f/0cmyJCFlq89XQJLX6hbl3GI5gR2
mAtKKM+YILc+YHbO3RJ4rr9aazPPBAM3vH3d31FC+YacJ67dr6FSChGevL5x
1SaYWXHY74lVKeUdsi/FzmirayloH2p5WdhN/JdqQZn+pZR/yL5ynf7zEaWQ
VWjd4M80xbbm2ty5yaWUh4i++mhnoqAUXF/vkCiBKVp7nJ8fX1tK+cgU5U3t
ztYvS6HJND+LzzEl70PR9e1D/+MlU2S8zWv8wagMdq36cuZHnilyb7+3a7It
o/xErt+curxvWRkoH3aJHq4i/smzd0sCyyhPEZ1oEK4RVQZpovjt17vJ+Zq7
Zv+TXEb5yhQzw88ORtwsgznvanxWM83Q+oFi+Fh1GeUtM8SPpw6wmsugzkrb
td/NDLknSuo3vC+j/GWGct+LsWbKhC/ZftMzOWYYqHxwbrCJiPKYGen/xRUu
swhvHk81WM4zw7beqUOpKKJ8RvwGVEtgE/6UtY70VpF9gz66vTtFlNfI/bz2
DeuKFgHr89TutG5y/VmWYMdpEeU3cj9S7+0hGSKQTwtReDDN0fpVZGifUER5
zhy54XYi9d9F4B9QVP3ejfj1lwIzGkWU74i/VrVE1i6CT2fJC8MxR4Yw1XLb
ZxHlPeLnK0OykhiO/bEoxY1njvJY02dL9cSU/8h8xeGOo5ZisB44ktBZRXRS
cOzqWWLKg+aIGSo9WS5iEM+uD03uJjoyrPSYp5jyIZlfanvgm58YvIP0/F2Y
Foh2z7SGNospL1ogd/WTmORdYuhMWevR7mZB/l69jIpIMeVH4o+NU4rliiH2
XrrtSQ7RUcUmT0+IKU+SfTaf9Rt5YjBhvDJz4hF/+8OeXVfFlC8tUG6g3nEj
Rwz5Tiy1F1Vkf2HR+l+EYsqbZD703VsjqRiWcvZ+Suwm8ytjQnxuiSl/Et+e
+9q1TgytV8qe2TInImNQN+XvR2LKo0Snvu53fSKGiMah2r/cJqL8e43y9X+L
KZ9OJDx4sGbBGzFoqy8u5nLI/F/3XTveiymvEr/pZczmL2LIJq8LizcRuVcT
JuUNiCm/Ev+w5uemMTG4hj043lhFdKyJ5nM1CeVZsm+TTXG9lgQU2cyIQ93k
+qblETf0JZRviX9aZnrARAIhTzdsmcqchLji2g2cJKG8OwkZ/ZeDdaZIQEX3
txUNbsSXH3r6ykZC+Zf4M7vu37OVwKXFnXMPcIh2UPNqcJJQHibaZ2LKpwUS
mEPqw4o3Cbk5S5a6uUsoHxOtrTW9epkE7gnCte9Wkfkp5r4xqyWUl4kf0T4p
fo0Egtqk/WHdxE9cPPvxRgnlZ6J7bbfHBEtgkEkeMNMSubEbPp8IlVCeJtqx
1Us9UgLJyz0f/O5mifLwl1OHYyWUry0RjRefjEiSwIy4U9IQDtEHXOsPnZNQ
3rZExnnD6EnpEvid4CSTR/ZZSmO350gof5P5a5EqgSUS8O80TZZVkfnE5EQz
uYTyOPHnfKu/2iCBTxZbDu3oJtfbvO0cfiahfE70hMtu7u/I8/K5vmMC04rw
Umt81JCE8roVMmofCUq0pWCV+M5X4maF3MuHDEYtpZTfrRDTEtg7HaUgkTos
2sohvuCPbaOeUsrzxN+re7RxoxS8PxJA5RHfV7LyS7iU8j3ReT9mh52Swv8B
ZZzxzA==
      "]]}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["x", TraditionalForm]},
  AxesOrigin->{0, 0.},
  AxesStyle->Thickness[0.003],
  ImageSize->Large,
  LabelStyle->Larger,
  Method->{},
  PlotRange->{{0, 7.9154}, {-0.015943962200951567`, 0.16737819180283947`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0.158308, 0.158308}, {0.0036664430800758207`, 
   0.0036664430800758207`}}]], "Output",
 CellChangeTimes->{{3.57855027320868*^9, 3.578550291795314*^9}, 
   3.5791554671268196`*^9, {3.579156826773582*^9, 3.5791568442592664`*^9}, 
   3.580893019856287*^9, 3.580893079997243*^9, 3.580893177034297*^9, 
   3.5808938174197965`*^9, 3.5808938488900256`*^9, {3.5808938981912546`*^9, 
   3.5808939200899005`*^9}, 3.5808939715210423`*^9, {3.580894322327758*^9, 
   3.5808943516910973`*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.574435913951869*^9}]
},
WindowSize->{703, 618},
WindowMargins->{{164, Automatic}, {Automatic, -15}},
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (November 20, 2012)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 28531, 715, 2672, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[29091, 737, 420, 6, 31, "Output"],
Cell[29514, 745, 2096, 45, 51, "Output"],
Cell[31613, 792, 171, 2, 23, "Print"],
Cell[31787, 796, 12489, 259, 375, "Output"],
Cell[44279, 1057, 841, 16, 52, "Output"],
Cell[45123, 1075, 177, 2, 23, "Print"],
Cell[45303, 1079, 11988, 250, 375, "Output"],
Cell[57294, 1331, 68, 1, 31, "Input"]
}
]
*)

(* End of internal cache information *)
